home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / epp / pmodules / readstr.e < prev    next >
Text File  |  1980-01-05  |  367b  |  20 lines
  1. OPT TURBO
  2.  
  3. MODULE 'dos/dos'
  4.  
  5. PROC readStr(handle, buffer)
  6.   DEF bytes, strMax, eoln
  7.   strMax:=StrMax(buffer)
  8.   bytes:=Read(handle, buffer, strMax)
  9.   eoln:=InStr(buffer, '\n', 0)
  10.   IF eoln>-1
  11.     Seek(handle, -(bytes-eoln-1), OFFSET_CURRENT)
  12.     buffer[eoln]:=0
  13.   ELSE
  14.     buffer[bytes]:=0
  15.     eoln:=IF bytes=0 THEN -1 ELSE bytes
  16.   ENDIF
  17. ENDPROC eoln
  18.   /* readStr */
  19.  
  20.